/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / LISTSKIP.17P

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| ff c2 11 05 00 c0 3a c9 | 20 dd 3a c8 20 11 2c 11 |......:.| .:. .,.|
|00000010| 2c 11 3a a0 20 0f 50 3a | 92 3a 82 20 49 e7 12 20 |,.:. .P:|.:. I.. |
|00000020| cc 20 0f 0a 3a c9 20 49 | 2c 22 22 3a 83 3a c9 20 |. ..:. I|,"":.:. |
|00000030| 13 2c 22 47 4f 54 4f 20 | 36 30 22 e9 ff 96 28 0f |.,"GOTO |60"...(.|
|00000040| 0d 29 3a c9 20 0f 0a 2c | 22 52 55 4e 22 e9 ff 96 |.):. ..,|"RUN"...|
|00000050| 28 0f 22 29 e9 22 42 4c | 55 45 4d 45 4e 55 22 e9 |(.")."BL|UEMENU".|
|00000060| ff 96 28 0f 22 29 e9 ff | 96 28 0f 0d 29 3a 93 20 |..(.")..|.(..):. |
|00000070| 0e 0a 00 ea 0e 39 00 00 | 0f 12 0a 00 3a 8f d9 2a |.....9..|....:..*|
|00000080| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 20 20 20 53 45 |********|***   SE|
|00000090| 54 20 50 52 49 4e 54 45 | 52 20 46 4f 52 20 50 45 |T PRINTE|R FOR PE|
|000000a0| 52 46 20 53 4b 49 50 20 | 2d 20 43 4f 4d 50 52 45 |RF SKIP |- COMPRE|
|000000b0| 53 53 45 44 20 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |SSED  **|********|
|000000c0| 2a 2a 2a 2a 00 62 12 10 | 00 3a 8f d9 c9 cd cd cd |****.b..|.:......|
|000000d0| cd cd cd cd cd cd cd cd | cd cd cd cd cd cd cd cd |........|........|
|000000e0| cd cd cd cd cd cd cd cd | cd cd cd cd cd cd cd cd |........|........|
|000000f0| cd cd cd cd cd cd cd cd | cd cd cd cd cd cd cd cd |........|........|
|00000100| cd cd cd cd cd cd cd cd | cd cd cd cd cd cd cd cd |........|........|
|00000110| cd cd cd cd cd cd bb 00 | b5 12 12 00 3a 8f d9 ba |........|....:...|
|00000120| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 53 |        |       S|
|00000130| 54 41 4e 44 41 52 44 20 | 50 52 4f 47 52 41 4d 20 |TANDARD |PROGRAM |
|00000140| 4c 49 53 54 49 4e 47 20 | 57 49 54 48 20 53 4b 49 |LISTING |WITH SKI|
|00000150| 50 20 53 45 54 20 20 20 | 20 20 20 20 20 20 20 20 |P SET   |        |
|00000160| 20 20 20 20 20 20 20 20 | 20 ba 00 08 13 14 00 3a |        | ......:|
|00000170| 8f d9 ba 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |...     |        |
|00000180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 ba 00 5b 13 |        |    ..[.|
|000001c0| 16 00 3a 8f d9 ba 20 20 | 20 20 20 54 68 69 73 20 |..:...  |   This |
|000001d0| 69 73 20 61 6e 20 6f 66 | 74 65 6e 20 6f 76 65 72 |is an of|ten over|
|000001e0| 6c 6f 6f 6b 65 64 20 73 | 75 62 2d 72 6f 75 74 69 |looked s|ub-routi|
|000001f0| 6e 65 20 77 68 69 63 68 | 20 77 69 6c 6c 20 70 72 |ne which| will pr|
|00000200| 6f 76 69 64 65 20 61 20 | 77 6f 72 6b 2d 20 20 ba |ovide a |work-  .|
|00000210| 00 ae 13 18 00 3a 8f d9 | ba 20 69 6e 67 20 6c 69 |.....:..|. ing li|
|00000220| 73 74 69 6e 67 20 77 69 | 74 68 20 61 20 66 69 76 |sting wi|th a fiv|
|00000230| 65 20 6c 69 6e 65 20 73 | 6b 69 70 20 65 69 74 68 |e line s|kip eith|
|00000240| 65 72 20 73 69 64 65 20 | 6f 66 20 74 68 65 20 70 |er side |of the p|
|00000250| 65 72 66 6f 72 61 74 69 | 6f 6e 20 77 68 65 6e 20 |erforati|on when |
|00000260| 20 20 ba 00 01 14 1a 00 | 3a 8f d9 ba 20 79 6f 75 |  ......|:... you|
|00000270| 20 61 72 65 20 75 73 69 | 6e 67 20 73 74 61 6e 64 | are usi|ng stand|
|00000280| 61 72 64 20 31 31 20 69 | 6e 63 68 20 66 61 6e 66 |ard 11 i|nch fanf|
|00000290| 6f 6c 64 20 70 61 70 65 | 72 2e 20 46 6f 72 20 74 |old pape|r. For t|
|000002a0| 68 69 73 20 74 79 70 65 | 20 6f 66 20 50 72 69 6e |his type| of Prin|
|000002b0| 74 65 72 20 20 ba 00 54 | 14 1c 00 3a 8f d9 ba 20 |ter  ..T|...:... |
|000002c0| 63 6f 6e 74 72 6f 6c 20 | 74 77 6f 20 76 65 72 73 |control |two vers|
|000002d0| 69 6f 6e 73 20 61 72 65 | 20 75 73 65 64 2e 20 20 |ions are| used.  |
|000002e0| 4f 6e 65 20 70 72 6f 76 | 69 64 65 73 20 66 6f 72 |One prov|ides for|
|000002f0| 20 31 30 20 70 69 74 63 | 68 20 28 65 6d 70 68 61 | 10 pitc|h (empha|
|00000300| 73 69 73 65 64 20 20 20 | ba 00 a7 14 1e 00 3a 8f |sised   |......:.|
|00000310| d9 ba 20 6f 70 74 69 6f | 6e 61 6c 29 20 70 72 69 |.. optio|nal) pri|
|00000320| 6e 74 2e 20 54 68 69 73 | 20 76 65 72 73 69 6f 6e |nt. This| version|
|00000330| 20 69 73 20 66 6f 72 20 | 63 6f 6d 70 72 65 73 73 | is for |compress|
|00000340| 65 64 20 31 37 2e 35 20 | 70 69 74 63 68 20 70 72 |ed 17.5 |pitch pr|
|00000350| 69 6e 74 2e 20 4e 6f 74 | 65 20 20 ba 00 fa 14 20 |int. Not|e  .... |
|00000360| 00 3a 8f d9 ba 20 52 45 | 4d 20 6d 61 72 6b 20 28 |.:... RE|M mark (|
|00000370| 27 29 20 61 74 20 4c 49 | 4e 45 20 31 32 30 2e 20 |') at LI|NE 120. |
|00000380| 54 68 69 73 20 69 73 20 | 61 6e 20 6f 70 74 69 6f |This is |an optio|
|00000390| 6e 61 6c 20 70 72 69 6e | 74 20 73 74 61 74 65 6d |nal prin|t statem|
|000003a0| 65 6e 74 73 2e 20 20 4e | 6f 74 20 20 20 20 ba 00 |ents.  N|ot    ..|
|000003b0| 4d 15 21 00 3a 8f d9 ba | 20 61 6c 6c 20 45 50 53 |M.!.:...| all EPS|
|000003c0| 4f 4e 20 6f 72 20 49 42 | 4d 2d 63 6f 6d 70 61 74 |ON or IB|M-compat|
|000003d0| 69 62 6c 65 20 70 72 69 | 6e 74 65 72 73 20 61 63 |ible pri|nters ac|
|000003e0| 63 65 70 74 20 61 20 6c | 65 66 74 20 6d 61 72 67 |cept a l|eft marg|
|000003f0| 69 6e 20 63 6f 6d 6d 61 | 6e 64 2e 20 49 66 20 20 |in comma|nd. If  |
|00000400| 20 ba 00 a0 15 22 00 3a | 8f d9 ba 20 79 6f 75 72 | ....".:|... your|
|00000410| 73 20 77 69 6c 6c 2c 20 | 79 6f 75 20 6d 61 79 20 |s will, |you may |
|00000420| 77 69 73 68 20 74 6f 20 | 61 64 6a 75 73 74 20 74 |wish to |adjust t|
|00000430| 68 65 20 77 69 64 74 68 | 20 73 74 61 74 65 6d 65 |he width| stateme|
|00000440| 6e 74 20 69 6e 20 6c 69 | 6e 65 20 31 31 30 20 61 |nt in li|ne 110 a|
|00000450| 73 20 20 20 ba 00 ee 15 | 23 00 3a 8f d9 ba 20 61 |s   ....|#.:... a|
|00000460| 70 70 72 6f 70 72 69 61 | 74 65 2e 20 46 6f 72 20 |ppropria|te. For |
|00000470| 65 76 65 6e 20 73 70 61 | 63 69 6e 67 2c 20 73 65 |even spa|cing, se|
|00000480| 74 20 70 72 69 6e 74 20 | 68 65 61 64 20 34 20 74 |t print |head 4 t|
|00000490| 6f 20 35 20 6c 69 6e 65 | 73 20 62 65 6c 6f 77 20 |o 5 line|s below |
|000004a0| 74 68 65 00 41 16 24 00 | 3a 8f d9 ba 20 70 65 72 |the.A.$.|:... per|
|000004b0| 66 6f 72 61 74 69 6f 6e | 20 61 66 74 65 72 20 54 |foration| after T|
|000004c0| 6f 70 20 4f 66 20 46 6f | 72 6d 20 28 54 4f 46 29 |op Of Fo|rm (TOF)|
|000004d0| 20 68 61 73 20 62 65 65 | 6e 20 73 65 74 20 6f 72 | has bee|n set or|
|000004e0| 20 74 68 65 20 50 72 69 | 6e 74 65 72 20 6a 75 73 | the Pri|nter jus|
|000004f0| 74 20 20 20 20 ba 00 94 | 16 25 00 3a 8f d9 ba 20 |t    ...|.%.:... |
|00000500| 69 6e 69 74 69 61 6c 69 | 7a 65 64 2e 20 20 20 20 |initiali|zed.    |
|00000510| 20 20 20 20 20 28 63 29 | 20 47 20 49 20 4e 20 41 |     (c)| G I N A|
|00000520| 20 43 20 4f 20 2d 2d 20 | 31 39 38 33 20 20 20 20 | C O -- |1983    |
|00000530| 20 20 20 20 20 20 56 65 | 72 20 35 2e 32 2f 31 36 |      Ve|r 5.2/16|
|00000540| 30 2f 33 32 30 20 20 20 | ba 00 e7 16 32 00 3a 8f |0/320   |....2.:.|
|00000550| d9 c8 cd cd cd cd cd cd | cd cd cd cd cd cd cd cd |........|........|
|00000560| cd cd cd cd cd cd cd cd | cd cd cd cd cd cd cd cd |........|........|
|00000570| cd cd cd cd cd cd cd cd | cd cd cd cd cd cd cd cd |........|........|
|00000580| cd cd cd cd cd cd cd cd | cd cd cd cd cd cd cd cd |........|........|
|00000590| cd cd cd cd cd cd cd cd | cd cd cd bc 00 31 17 37 |........|.....1.7|
|000005a0| 00 3a 8f d9 20 20 20 20 | 20 20 20 20 2a 2a 2a 2a |.:..    |    ****|
|000005b0| 2a 20 20 3c 20 46 32 20 | 3e 20 74 6f 20 52 55 4e |*  < F2 |> to RUN|
|000005c0| 20 20 2a 2a 2a 2a 2a 2a | 2a 20 20 3c 20 46 31 30 |  ******|*  < F10|
|000005d0| 20 3e 20 46 6f 72 20 42 | 4c 55 45 4d 45 4e 55 20 | > For B|LUEMENU |
|000005e0| 20 2a 2a 2a 2a 2a 00 83 | 17 39 00 3a 8f d9 20 3d | *****..|.9.:.. =|
|000005f0| 3d 3d 3d 3d 3d 20 54 6f | 20 61 76 6f 69 64 20 44 |===== To| avoid D|
|00000600| 4f 43 55 4d 45 4e 54 41 | 54 49 4f 4e 20 42 4f 58 |OCUMENTA|TION BOX|
|00000610| 20 65 61 63 68 20 74 69 | 6d 65 2c 20 52 45 4d 20 | each ti|me, REM |
|00000620| 6f 72 20 44 45 4c 45 54 | 45 20 20 6c 69 6e 65 20 |or DELET|E  line |
|00000630| 35 20 3d 3d 3d 3d 3d 3d | 00 ac 17 3c 00 c0 3a c8 |5 ======|...<..:.|
|00000640| 20 11 2c 11 2c 11 3a a0 | 20 0f 50 3a 92 3a 82 20 | .,.,.:.| .P:.:. |
|00000650| 49 e7 12 20 cc 20 0f 0a | 3a c9 20 49 2c 22 22 3a |I.. . ..|:. I,"":|
|00000660| 83 00 f4 17 46 00 8f 20 | 3d 3d 3d 3d 3d 20 50 52 |....F.. |===== PR|
|00000670| 49 4e 54 45 52 20 4c 49 | 53 54 49 4e 47 20 50 52 |INTER LI|STING PR|
|00000680| 4f 47 52 41 4d 20 2d 20 | 31 37 20 50 49 54 43 48 |OGRAM - |17 PITCH|
|00000690| 20 4d 41 52 47 49 4e 2c | 31 30 20 53 4b 49 50 20 | MARGIN,|10 SKIP |
|000006a0| 31 30 20 20 3d 3d 3d 3d | 3d 00 3b 18 50 00 9d 20 |10  ====|=.;.P.. |
|000006b0| ff 96 28 0f 1b 29 ff 96 | 28 0f 40 29 3b 20 20 20 |..(..)..|(.@);   |
|000006c0| 20 20 20 20 20 20 20 20 | 20 20 3a 8f d9 3d 3d 3d |        |  :..===|
|000006d0| 20 43 4c 45 41 52 53 20 | 50 52 49 4e 54 45 52 20 | CLEARS |PRINTER |
|000006e0| 43 4f 4e 54 52 4f 4c 20 | 52 45 47 49 53 54 45 52 |CONTROL |REGISTER|
|000006f0| 00 7a 18 5a 00 9d 20 ff | 96 28 0f 0f 29 3b 20 20 |.z.Z.. .|.(..);  |
|00000700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000710| 20 20 20 3a 8f d9 3d 3d | 3d 20 53 45 54 53 20 43 |   :..==|= SETS C|
|00000720| 4f 4d 50 52 45 53 53 45 | 44 20 50 52 49 4e 54 00 |OMPRESSE|D PRINT.|
|00000730| c1 18 64 00 9d 20 ff 96 | 28 0f 1b 29 ff 96 28 0f |..d.. ..|(..)..(.|
|00000740| 4e 29 e9 ff 96 28 0f 0a | 29 3b 20 20 20 3a 8f d9 |N)...(..|);   :..|
|00000750| 3d 3d 3d 20 53 45 54 53 | 20 31 30 20 53 50 41 43 |=== SETS| 10 SPAC|
|00000760| 45 20 53 4b 49 50 20 41 | 54 20 50 45 52 46 4f 52 |E SKIP A|T PERFOR|
|00000770| 4d 41 54 49 4f 4e 00 0a | 19 6e 00 a0 20 22 4c 50 |MATION..|.n.. "LP|
|00000780| 54 31 3a 22 2c 0f 82 20 | 20 20 20 20 20 20 20 20 |T1:",.. |        |
|00000790| 20 20 20 20 20 20 20 20 | 20 20 3a 8f d9 3d 3d 3d |        |  :..===|
|000007a0| 20 53 45 54 53 20 50 52 | 49 4e 54 20 57 49 44 54 | SETS PR|INT WIDT|
|000007b0| 48 20 4d 41 58 20 31 33 | 30 20 43 48 41 52 53 00 |H MAX 13|0 CHARS.|
|000007c0| 5a 19 78 00 3a 8f d9 20 | 4c 50 52 49 4e 54 20 43 |Z.x.:.. |LPRINT C|
|000007d0| 48 52 24 28 32 37 29 43 | 48 52 24 28 37 37 29 2b |HR$(27)C|HR$(77)+|
|000007e0| 43 48 52 24 28 31 30 29 | 3b 27 20 3d 3d 3d 20 4c |CHR$(10)|;' === L|
|000007f0| 45 46 54 20 4d 41 52 47 | 49 4e 20 2d 20 31 30 20 |EFT MARG|IN - 10 |
|00000800| 28 53 4f 4d 45 20 50 52 | 49 4e 54 45 52 53 29 00 |(SOME PR|INTERS).|
|00000810| 9c 19 c8 00 c0 3a ca 20 | 16 2c 0f 0a 3a 91 22 28 |.....:. |.,..:."(|
|00000820| 31 29 20 50 72 69 6e 74 | 65 72 20 77 69 6c 6c 20 |1) Print|er will |
|00000830| 73 6b 69 70 20 31 30 20 | 6c 69 6e 65 73 20 61 74 |skip 10 |lines at|
|00000840| 20 74 68 65 20 70 65 72 | 66 6f 72 61 74 69 6f 6e | the per|foration|
|00000850| 22 00 e1 19 d2 00 ca 20 | 18 2c 0f 0a 3a 91 22 28 |"...... |.,..:."(|
|00000860| 32 29 20 4c 65 66 74 20 | 6d 61 72 67 69 6e 20 61 |2) Left |margin a|
|00000870| 74 20 32 20 73 70 61 63 | 65 73 20 69 66 20 50 72 |t 2 spac|es if Pr|
|00000880| 69 6e 74 65 72 20 61 63 | 63 65 70 74 73 20 63 6f |inter ac|cepts co|
|00000890| 6d 6d 61 6e 64 22 00 24 | 1a dc 00 ca 20 1a 2c 0f |mmand".$|.... .,.|
|000008a0| 0a 3a 91 22 28 33 29 20 | 45 6d 70 68 61 73 69 7a |.:."(3) |Emphasiz|
|000008b0| 65 64 20 70 72 69 6e 74 | 20 73 65 74 20 69 66 20 |ed print| set if |
|000008c0| 52 45 4d 20 72 65 6d 6f | 76 65 20 66 72 6f 6d 20 |REM remo|ve from |
|000008d0| 4c 49 4e 45 20 31 30 30 | 22 00 6b 1a e6 00 ca 20 |LINE 100|".k.... |
|000008e0| 0f 0b 2c 0f 0a 3a 91 22 | 28 34 29 20 53 65 74 20 |..,..:."|(4) Set |
|000008f0| 50 72 69 6e 74 20 68 65 | 61 64 20 35 20 6c 69 6e |Print he|ad 5 lin|
|00000900| 65 73 20 66 72 6f 6d 20 | 54 4f 46 2e 20 49 6e 69 |es from |TOF. Ini|
|00000910| 74 69 61 6c 69 7a 65 20 | 70 72 69 6e 74 65 72 22 |tialize |printer"|
|00000920| 00 9a 1a f0 00 ca 20 0f | 0d 2c 0f 0a 3a 91 22 28 |...... .|.,..:."(|
|00000930| 35 29 20 4c 6f 61 64 20 | 70 72 6f 67 72 61 6d 20 |5) Load |program |
|00000940| 74 6f 20 62 65 20 6c 69 | 73 74 65 64 2e 20 22 00 |to be li|sted. ".|
|00000950| d8 1a fa 00 ca 20 0f 0f | 2c 0f 0a 3a 91 22 28 36 |..... ..|,..:."(6|
|00000960| 29 20 3c 45 4e 54 45 52 | 3e 20 4c 4c 49 53 54 20 |) <ENTER|> LLIST |
|00000970| 58 58 58 2d 59 59 59 20 | 28 4c 69 6e 65 20 72 61 |XXX-YYY |(Line ra|
|00000980| 6e 67 65 20 74 6f 20 50 | 72 69 6e 74 29 00 09 1b |nge to P|rint)...|
|00000990| 04 01 ca 20 0f 11 2c 0f | 17 3a 91 22 50 52 49 4e |... ..,.|.:."PRIN|
|000009a0| 54 45 52 20 48 41 53 20 | 42 45 45 4e 20 50 52 45 |TER HAS |BEEN PRE|
|000009b0| 53 45 54 20 41 54 20 31 | 37 20 43 50 53 22 00 0f |SET AT 1|7 CPS"..|
|000009c0| 1b 0e 01 81 00 5a 1b e8 | fd 8f 20 20 2a 2a 2a 2a |.....Z..|..  ****|
|000009d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 20 53 41 56 45 |********|*** SAVE|
|000009e0| 20 52 4f 55 54 49 4e 45 | 20 2a 2a 2a 2a 2a 2a 2a | ROUTINE| *******|
|000009f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000a00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 00 |********|*******.|
|00000a10| 70 1b 4c fe be 22 42 3a | 4c 49 53 54 53 4b 49 50 |p.L.."B:|LISTSKIP|
|00000a20| 2e 31 37 50 22 00 00 00 | 1a 1a 45 4e 20 50 52 45 |.17P"...|..EN PRE|
|00000a30| 53 45 54 20 41 54 20 31 | 37 20 43 50 53 22 00 0f |SET AT 1|7 CPS"..|
|00000a40| 1b 0e 01 81 00 5a 1b e8 | fd 8f 20 20 2a 2a 2a 2a |.....Z..|..  ****|
|00000a50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 20 53 41 56 45 |********|*** SAVE|
|00000a60| 20 52 4f 55 54 49 4e 45 | 20 2a 2a 2a 2a 2a 2a 2a | ROUTINE| *******|
|00000a70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
+--------+-------------------------+-------------------------+--------+--------+